program ddldump;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ddldump_ in 'ddldump_.pas',
  dbentities in 'dbentities.pas',
  mssql in 'mssql.pas';

var
  Application: TDdlDump;
begin
  Application:=TDdlDump.Create(nil);
  try
    try
      { TODO -oUser -cConsole Main : Insert code here }
      Application.Title:='DDL Dump';
      Application.Run;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Application.Free;
  end;
end.
